program elements100;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  arr = array[0..99] of integer;

var
  a : ^arr;
  i : integer;

begin
  new(a);
  for i := 0 to 99 do
    a^[i] := i;
    dispose(a);

end.
 